sub msx1cls():
  asm
    or a
    call $00C3
    end asm
  end sub

'-   cls - cls 
'-   call $00c3     #-cls
